home *** CD-ROM | disk | FTP | other *** search
/ Golf Digest's Best Places to Play / Golf Digest's Best Places to Play.iso / diamond / dbrs_ibm.dir / 00024_Script_SalaryScript < prev    next >
Text File  |  1995-05-15  |  4KB  |  122 lines
  1. on exitFrame
  2.   go to marker(0)+3
  3. end
  4.  
  5. on mouseDown
  6.   set ButtonNum=the clickOn
  7.   if ButtonNum>0 then
  8.     set ButtonName=the name of cast (the castNum of sprite ButtonNum)
  9.     if (ButtonNum > 3) and (ButtonNum < 14) then
  10.       AddDigit(ButtonNum)
  11.     end if
  12.     if ButtonNum = 2 then
  13.       ClearDigit
  14.     end if
  15.     if ButtonNum = 3 then
  16.       CrunchIt
  17.     end if
  18.     if chars(ButtonName,1,6) = "ToMain" then
  19.       if PressBtn(ButtonNum) then
  20.         showCode
  21.         AllPuppetsOff
  22.         updateStage
  23.         go to "Jeweler"
  24.       end if
  25.     end if
  26.     if chars(ButtonName,1,4) = "Help" then
  27.       if PressBtn(ButtonNum) then
  28.         showHelp
  29.         puppetsprite ButtonNum, true
  30.         set the castNum of sprite ButtonNum to the number of cast (ButtonName)
  31.         puppetsprite ButtonNum, false
  32.       end if
  33.     end if
  34.   end if
  35. end mouseDown
  36.  
  37. on AddDigit ButtonNum
  38.   if the castNum of sprite 21 <> the number of cast ("SalDigitEmpty") then
  39.     ClearDigit
  40.   end if
  41.   put ButtonNum-3 into theDigit
  42.   if theDigit=10 then put 0 into theDigit
  43.   set the castNum of sprite ButtonNum to the number of cast ("SalKey" & theDigit & "Down")
  44.   updateStage
  45.   repeat with i=19 down to 14
  46.     puppetsprite ButtonNum, true
  47.     put the castNum of sprite i into tempCastNum
  48.     set the castNum of sprite i+1 to tempCastNum
  49.   end repeat
  50.   set the castNum of sprite 14 to the number of cast ("SalDigit" & theDigit)
  51.   set the castNum of sprite ButtonNum to the number of cast ("SalKey" & theDigit)
  52. end AddDigit
  53.  
  54. on ClearDigit
  55.   set the castNum of sprite 2 to the number of cast ("SalKeyClearDown")
  56.   updateStage
  57.   repeat with i=14 to 27
  58.     set the castNum of sprite i to the number of cast ("SalDigitEmpty")
  59.   end repeat
  60.   set the castNum of sprite 2 to the number of cast ("SalKeyClear")
  61. end ClearDigit
  62.  
  63. on CrunchIt
  64.   set the castNum of sprite 3 to the number of cast ("SalKeyEnterDown")
  65.   updateStage
  66.   put empty into Salary
  67.   repeat with i=20 down to 14
  68.     put the castNum of sprite i into tempDigit
  69.     if tempDigit=the number of cast ("SalDigitEmpty") then
  70.       put empty after Salary
  71.     else
  72.       put the last char of (the name of cast (tempDigit)) after Salary
  73.     end if
  74.   end repeat
  75.   put value(Salary) into Salary
  76.   put Salary/6 into PayThis
  77.   put string(integer(PayThis)) into PayThis
  78.   repeat with i= 1 to length(PayThis)
  79.     put random(10)-1 into theDigit
  80.     set the castNum of sprite 21+length(PayThis)-i to the number of cast ("SalDigit" & theDigit)
  81.     updateStage
  82.   end repeat
  83.   startTimer
  84.   repeat while the timer < 3*60
  85.     put random(length(PayThis)) into theSprite
  86.     put random(10)-1 into theDigit
  87.     set the castNum of sprite 21+length(PayThis)-theSprite to the number of cast ("SalDigit" & theDigit)
  88.     updateStage
  89.   end repeat
  90.   repeat with i= 1 to length(PayThis)
  91.     put value(chars(PayThis,i,i)) into theDigit
  92.     set the castNum of sprite 21+length(PayThis)-i to the number of cast ("SalDigit" & theDigit)
  93.     updateStage
  94.   end repeat
  95.   set the castNum of sprite 3 to the number of cast ("SalKeyEnter")
  96. end CrunchIt
  97.  
  98. on showCode
  99.   puppetsound "FirstCutYeahSound"
  100.   puppetsprite 40, true
  101.   set the castNum of sprite 40 to the number of cast ("Code1")
  102.   updateStage
  103.   repeat while soundbusy(1)
  104.     nothing
  105.   end repeat
  106.   set the castNum of sprite 40 to the number of cast ("HelpDot")
  107.   puppetsprite 40, false
  108. end showCode
  109.  
  110.  
  111. on showHelp
  112.   puppetsprite 40, true
  113.   set the castNum of sprite 40 to the number of cast ("HelpText")
  114.   updateStage
  115.   startTimer
  116.   repeat while the timer < 3*60
  117.     nothing
  118.   end repeat
  119.   set the castNum of sprite 40 to the number of cast ("HelpDot")
  120.   puppetsprite 40, false
  121. end
  122.